home *** CD-ROM | disk | FTP | other *** search
/ Maclife 39 / MACLIFE39.ISO.7z / MACLIFE39.ISO / 各社アップデータ / QMS / Driver for Mac 1.0 (J).sea / Driver for Mac 1.0 (J) / Drivers / LaserWriter 8.rsrc / PS_-8182 < prev    next >
Text File  |  1995-02-11  |  771b  |  69 lines
  1. level2 startnoload
  2. /copyfontdict
  3. {
  4. findfont dup length dict
  5. begin
  6. {
  7. 1 index/FID ne{def}{pop pop}ifelse
  8. }forall
  9. }bd
  10. level2 endnoload level2 not startnoload
  11. /copyfontdict
  12. {
  13. findfont dup length dict
  14. copy
  15. begin
  16. }bd
  17. level2 not endnoload
  18. md/fontname known not{
  19. /fontname/customfont def
  20. }if
  21. /Encoding Z
  22. /:mre
  23. {
  24. copyfontdict
  25. /Encoding MacEncoding def
  26. fontname currentdict
  27. end
  28. definefont :ff def
  29. }bd
  30. /:bsr
  31. {
  32. copyfontdict
  33. /Encoding Encoding 256 array copy def
  34. Encoding dup
  35. }bd
  36. /pd{put dup}bd
  37. /:esr
  38. {
  39. pop pop
  40. fontname currentdict
  41. end
  42. definefont :ff def
  43. }bd
  44. /scf
  45. {
  46. scalefont def
  47. }bd
  48. /scf-non
  49. {
  50. $m scale :mf setfont
  51. }bd
  52. /ps Z
  53. /fz{/ps xs}bd
  54. /sf/setfont ld
  55. /cF/currentfont ld
  56. /mbf
  57. {
  58. /makeblendedfont where
  59. {
  60. pop
  61. makeblendedfont
  62. /ABlend exch definefont
  63. }{
  64. pop
  65. }ifelse
  66. def
  67. }def
  68. %%EndFile
  69.